home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / u_text.zip / U.PPS < prev    next >
Text File  |  1993-04-01  |  2KB  |  26 lines
  1. ;*****************************************************************************
  2. ;*                                                                           *
  3. ;*                    Displaying A File Before An Upload                     *
  4. ;*                                                                           *
  5. ;*                  Written in PCBoard Programming Language                  *
  6. ;*                                                                           *
  7. ;*****************************************************************************
  8.  
  9. STRING cmdline                  ; Stores the command line (if any) that was
  10.                                 ; passed to the command.
  11.                              
  12. cmdline = TOKENSTR()            ; gather the command line parameters if any and
  13.                                 ; store in the cmdline variable.
  14.                              
  15. DISPFILE PPEPATH()+"UNOT",111b  ; Display the UNOT file stored in the same
  16.                                 ; directory as the PPE file.
  17.                                 
  18. KBDSTUFF "U "+cmdline+chr(13)   ; Stuff the keyboard with a U to execute the
  19.                                 ; (U)pload command, followed by the command
  20.                                 ; line (if any), and a carriage return to 
  21.                                 ; actually execute the command.
  22.                                 
  23. END                             ; End the execution of the PPE.  Once
  24.                                 ; execution ends, the keyboard stuff will
  25.                                 ; actually take place.
  26.